  10 :return ;clear ;NT=0;&(9)=60;BC=249;FC=116
  30 CY=12;CX=-30;print "BIO-RYTHMS
  40 CY=-36;print "REVISED BY D WALTER
  50 NT=10;for A=0to 86;MU=@(A);next A;NT=1;goto 200
 100 for A=1to 3000;NT=1
 110 if KPgoto 200
 130 next A;BC=1;goto 100
 190 CY=0;input "MONTH"M,"DAY"D,"YEAR"Y
 192 if D>0if D<32if M>0if M<13return 
 200 clear ;&(9)=60;BC=250;FC=7
 210 CY=24;print "WHAT IS YOUR BIRTHDATE
 220 print "MONTH,DAY,YEAR,EX.6/10/62
 240 CY=0;gosub 190
 250 U=D;V=M;W=Y;BC=176
 260 CY=24;print "WHAT IS TODAY'S DATE?  "
 270 box -60,-8,41,28,2;CY=0;gosub 190
 280 for A=0to 86;NT=3;MU=A;next A
 290 Q=Y-W;K=V;L=M
 295 if V>M K=M;if V>M L=V
 300 T=Qmul 365+Qdiv 4
 302 if K=Lgoto 360
 305 if V>M T=-T
 310 for R=Kto L-1
 320 T=T+30
 330 if R#2if R#4if R#6if R#9if R#11T=T+1
 340 if R=2T=T-2
 350 next R
 360 T=ABS(T)-(U-D)
 370 P=Tdiv 23;P=RM
 380 E=Tdiv 28;E=RM+24
 390 I=Tdiv 33;I=RM+53
 400 clear ;FC=1;BC=125;NT=0;print 
 415 print "YOU HAVE LIVED",#6,T," DAYS.
 420 CY=22
 430 print "PHYSICAL INDEX:",#9,@(P)
 440 CY=11;X=@(P);gosub 1000
 450 CY=-2
 460 print "EMOTIONAL INDEX:",#8,@(E)
 470 CY=-12;X=@(E);gosub 1000
 490 CY=-26;print "INTELLECTUAL INDEX:",#5,@(I)
 500 CY=-36;X=@(I);gosub 1000
 510 for Z=0to 3000;next Z;clear 
 525 CY=0;CX=-70;&(9)=-1;FC=117;BC=240
 530 print "CYCLES: THE next 25 DAYS
 535 for A=0to 1000;next A;clear ;&(10)=0;BC=0;FC=118
 537 &(0)=179;&(1)=179;&(2)=FC;&(3)=FC;gosub 1100;&(9)=199;for A=0to 180;&(10)=A;next A;NT=3
 540 CX=-75;CY=@(P);print "P",;gosub 750
 550 CX=-68;CY=@(E);print "E",;gosub 750
 560 CX=-61;CY=@(I);print "I",;gosub 750
 610 line -72,@(P),0;A=P;B=23;C=0
 630 gosub 800
 640 line -65,@(E),0;A=E;B=52;C=24
 660 gosub 800
 670 line -58,@(I),0;A=I;B=86;C=53
 690 gosub 800
 695 NT=3;goto 100
 750 box CX-7,CY,7,9,3
 770 return 
 800 for X=-52to 75step 5
 810 &(17)=255
 816 &(22)=15;&(16)=72-@(A)
 820 line X,@(A),1
 830 A=A+1;if A=B A=C
 840 next X;&(22)=0;return 
1000 if X>13print "HIGH
1010 if X>=-13if X<13print " CRITICAL!!!";box -43,CY+8,75,11,3
1020 if X<-13print "LOW
1030 return 
1100 box -50,0,1,80,1;U=0;box 15,0,129,1,1
1105 L=0
1110 for X=-50to 75step 5;box X,0,1,3,1
1120 U=U+1
1125 if U=7gosub 1150
1130 next X;return 
1150 box X,0,1,10,1;L=L+7;CX=X-3;CY=-40;print #1,L,;U=0
1160 U=0;return 
@(0)=0
@(1)=10
@(2)=19
@(3)=26
@(4)=32
@(5)=35
@(6)=36
@(7)=34
@(8)=29
@(9)=23
@(10)=14
@(11)=5
@(12)=-5
@(13)=-14
@(14)=-23
@(15)=-29
@(16)=-34
@(17)=-36
@(18)=-35
@(19)=-32
@(20)=-26
@(21)=-19
@(22)=-10
@(23)=0
@(24)=0
@(25)=8
@(26)=16
@(27)=22
@(28)=28
@(29)=32
@(30)=35
@(31)=36
@(32)=35
@(33)=32
@(34)=28
@(35)=22
@(36)=16
@(37)=8
@(38)=0
@(39)=-8
@(40)=-16
@(41)=-22
@(42)=-28
@(43)=-32
@(44)=-35
@(45)=-36
@(46)=-35
@(47)=-32
@(48)=-28
@(49)=-22
@(50)=-16
@(51)=-8
@(52)=0
@(53)=0
@(54)=7
@(55)=13
@(56)=19
@(57)=25
@(58)=29
@(59)=33
@(60)=35
@(61)=36
@(62)=36
@(63)=34
@(64)=31
@(65)=27
@(66)=22
@(67)=16
@(68)=10
@(69)=3
@(70)=-3
@(71)=-10
@(72)=-16
@(73)=-22
@(74)=-27
@(75)=-31
@(76)=-34
@(77)=-36
@(78)=-36
@(79)=-35
@(80)=-33
@(81)=-29
@(82)=-25
@(83)=-19
@(84)=-13
@(85)=-7
@(86)=0
&(10)=176;run 
